home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol213 / analytc3.arc / PIE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-05  |  898 b   |  42 lines
  1. 300  DIM R(100),A$(100)
  2. 500  LINE INPUT "Saved sheet filename>";LFNM$
  3. 1000  KEY OFF
  4. 1010  WIDTH 40:CLS
  5. 1410  FOR I=1 TO 30
  6. 1412  R(I)=0:A$(I)=" "
  7. 1414  NEXT I
  8. 1420  SCREEN 1,0:COLOR 0,7
  9. 1440  LR=50:SR=44
  10. 1444  OPEN LFNM$ FOR INPUT AS #1
  11. 1450  LINE INPUT #1,T$
  12. 1451  T$=LEFT$(T$,40)
  13. 1452  ON ERROR GOTO 1470
  14. 1454  N=1:M=1:S=0
  15. 1456  INPUT #1,I1$,I2
  16. 1457  LINE INPUT #1,L$
  17. 1458  INPUT #1,TP,F$,TY
  18. 1460  IF TP < 0 THEN A$(N)=LEFT$(L$,8):N=N+1 ELSE R(M)=VAL(L$):M=M+1
  19. 1462  GOTO 1456
  20. 1470  IF M > N THEN N=M
  21. 1480  FOR I=1 TO N
  22. 1500  S=S+R(I)
  23. 1510  NEXT I
  24. 1515  N=N-1
  25. 1520  FOR I=1 TO N:R(I)=R(I)/S:NEXT
  26. 1530  A2=0
  27. 1550  LOCATE 2,1:PRINT T$
  28. 1570  FOR C=1 TO N
  29. 1580  A1=A2:A2=A2+R(C)*2*3.14159
  30. 1590  AA=(A1+A2)/2
  31. 1600  CX=160+COS(AA)*(LR-SR)
  32. 1610  CY=100-SIN(AA)*(LR-SR)
  33. 1620  CIRCLE (CX,CY),SR,1,-A1-0.000999999,-A2,5/6
  34. 1630  IF N < 8 THEN PAINT (CX+COS(AA)*0.8*SR,CY-SIN(AA)*0.8*SR),C MOD 4,1
  35. 1640  LX=CX+COS(AA)*(16+SR)-4*LEN(A$(C)):LY=CY-SIN(AA)*(SR+16)
  36. 1650  LOCATE 1+(LY\8),1+(LX\8):PRINT A$(C);
  37. 1660  LINE ((LX\8)*8,8*((LY\8)+1))-((LX\8)*8+8*LEN(A$(C)),8*((LY\8)+1)),1
  38. 1670  NEXT C
  39. 1680  LOCATE 22,1:PRINT "Total=";S
  40. 1700  LOCATE 23,1
  41. 1750  END
  42.